home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel0_89.lha / Feel / Modules / null.em < prev    next >
Text File  |  1993-07-15  |  414b  |  21 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;
  3. ;; Copyright (c) University of Bath, 1993
  4. ;;
  5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  6.  
  7. (defmodule null
  8.   (init extras0 gens defs)
  9.    ()
  10.  
  11.    (export <null> null)
  12.    
  13.    (defmethod size ((c <null>)) 0)
  14.    
  15.    (defmethod shallow-copy ((c <null>)) ())
  16.  
  17.    (defmethod initial-state ((c <null>))
  18.      nil)
  19.  
  20.    )
  21.